home *** CD-ROM | disk | FTP | other *** search
/ Mac OS on the PowerPC Mic…rocessor - In Store Demo / Mac OS on the PowerPC Microprocessor.iso / MacOS / MacOS.dxr / 00085_PREVIEW.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  839 b   |  23 lines
  1. global gGraphicPath, gFileName, grectlist, gprevsrcrect, objPreview, glessonnumber, objCapturePict
  2.  
  3. on setpreview
  4.   blitPictInitFile(objPreview, gGraphicPath & getProp(gFileName, #PREVIEW))
  5.   set thestep to integer(item 3 of getAt(grectlist, 3)) - integer(item 1 of getAt(grectlist, 3))
  6.   set TheHeight to integer(item 4 of getAt(grectlist, 3)) - integer(item 2 of getAt(grectlist, 3))
  7.   set gprevsrcrect to []
  8.   repeat with n = 1 to glessonnumber
  9.     set srcrect to thestep * (n - 1) & ",0," & thestep * n & "," & TheHeight
  10.     add(gprevsrcrect, srcrect)
  11.   end repeat
  12.   blitPictInitScreen(objCapturePict, getAt(grectlist, 3))
  13. end
  14.  
  15. on showpreview lesson
  16.   blitPictDrawScreen(objPreview, getAt(gprevsrcrect, lesson), getAt(grectlist, 3), "copy", 0, 0)
  17. end
  18.  
  19. on killpreview
  20.   blitPictDispose(objPreview)
  21.   blitPictDispose(objCapturePict)
  22. end
  23.